home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aae.d64 / load'errors.proc < prev    next >
Text File  |  2007-02-28  |  2KB  |  76 lines
  1. 9000 //
  2. 9010 PROC LOAD'ERRORS 
  3. 9020 CHECKSUM:=0
  4. 9030 FOR ADDRESS:=49152 TO 49200 DO
  5. 9040 READ VALUE
  6. 9050 POKE ADDRESS,VALUE
  7. 9060 CHECKSUM:+VALUE
  8. 9070 ENDFOR ADDRESS
  9. 9080 IF CHECKSUM<>6637 THEN
  10. 9090 PRINT "LOAD'ERRORS CODE IS INCORRECT"
  11. 9100 STOP 
  12. 9110 ENDIF 
  13. 9120 //
  14. 9130 OPEN FILE 8,"COMALERRORS",READ
  15. 9140 DS$:=STATUS$
  16. 9150 IF DS$="00" THEN
  17. 9160 SYS 49152
  18. 9170 ENDIF 
  19. 9180 CLOSE FILE 8
  20. 9190 //
  21. 9200 DATA 162,8,32,198,255,169,208,141
  22. 9210 DATA 32,192,160,0,32,207,255,170
  23. 9220 DATA 32,183,255,208,24,120,165,1
  24. 9230 DATA 72,41,240,133,1,138,153,0
  25. 9240 DATA 208,104,133,1,88,200,208,228
  26. 9250 DATA 238,32,192,208,223,32,204,255
  27. 9260 DATA 96
  28. 9270 //
  29. 9280 ENDPROC LOAD'ERRORS
  30. 9290 //
  31. 9300 PROC CHANGE'ERROR'ROUTINE 
  32. 9310 CHECKSUM:=0
  33. 9320 FOR LOC:=6482 TO 6497 DO
  34. 9330 READ BYTE
  35. 9340 CHECKSUM:+BYTE
  36. 9350 POKE LOC,BYTE
  37. 9360 ENDFOR LOC
  38. 9370 //
  39. 9380 FOR LOC:=47006 TO 47049 DO
  40. 9390 READ BYTE
  41. 9400 CHECKSUM:+BYTE
  42. 9410 POKE LOC,BYTE
  43. 9420 ENDFOR LOC
  44. 9430 //
  45. 9440 WHILE NOT EOD DO
  46. 9450 READ ADDRESS
  47. 9460 POKE ADDRESS+1,158
  48. 9470 POKE ADDRESS+2,183
  49. 9480 CHECKSUM:+ADDRESS
  50. 9490 ENDWHILE 
  51. 9500 //
  52. 9510 IF CHECKSUM<>47040 THEN
  53. 9520 PRINT "CHECKSUM ERROR FOR DATA STATEMENTS"
  54. 9530 PRINT " *** PLEASE RELOAD COMAL ***"
  55. 9540 STOP 
  56. 9550 ENDIF 
  57. 9560 //
  58. 9570 // OPEN TEXT "FILE" FOR READING:
  59. 9580 DATA 169,0,141,171,183
  60. 9590 DATA 169,208,141,172,183
  61. 9600 DATA 169,0,133,144,240,12
  62. 9610 // NEW ROUTINE FOR "CHRIN" CALLS
  63. 9620 DATA 165,144,208,39,120
  64. 9630 DATA 165,1,72,41,248
  65. 9640 DATA 133,1,174,0,208
  66. 9650 DATA 238,171,183,208,17
  67. 9660 DATA 238,172,183,169,216
  68. 9670 DATA 205,172,183,208,7
  69. 9680 DATA 169,64,133,144,56
  70. 9690 DATA 176,1,24,104,133
  71. 9700 DATA 1,138,88,96
  72. 9710 // "CHRIN" CALL LOCATIONS:
  73. 9720 DATA 6510,6521,6529
  74. 9730 DATA 6538,6543,6548
  75. 9740 ENDPROC CHANGE'ERROR'ROUTINE
  76.